<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>2896</cardID>
<listID>4695</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal wordProcessor, upDatedisable menuItem "Cut Card" of menu "Edit"disable menuItem "Copy Card" of menu "Edit"push recent cardput bg fld "WP" of cd 1 into wordProcessorput bg fld "reset" of cd 1 into upDatesend checkForMissingFonts to cd "Instruct"show msgdoMenu "find..."end openStackon closeBackgroundsort fld "gobg"end closeBackgroundon openCardglobal TellvisibleMarkif bg fld "date" is empty then put "pass" into Tellput the number of cards in this bg into bg fld "cdnumber"put the number of cards in this stack into bg fld "snumber"if the short name of this bg ≠ "Instruct" then enable menu "Edit"pass openCardend openCardon closeCardglobal Tell,upDateset the scroll of bg fld "notes" to 0if visible of bg fld "export" is true then send mouseUp to bg button "info check"if bg fld "export" is empty then fillerUpif bg fld "mailing label" is empty then reMailpush cardif upDate = "auto" and "pass" is not in Tell then --checks the reset option and if its a new entryif the number of characters in Tell > 2 thenreMailfillerUpend ifend ifif upDate = "notify" and "pass" is not in Tell then --checks the reset option and if its a new entryif the number of characters in Tell > 2 thendelete the last character of Telldelete the last character of Tellput "." after Tellanswer "You've edited fields used in printing or exporting information."&return&return&"Edited field(s): "&Tell&return&return¬&"Update the mailing label and/or export field to reflect these changes?" with "no" or "yes"if it is "yes" then makeOverend ifend ifput empty into Tellpass closeCardend closeCardon arrowKey directionif the number of marked cds > 0 thenif direction is "up" thensend mouseUp to bg button "nmark"exit to hypercardend ifif direction is "down" thensend mouseUp to bg button "pmark"exit to hypercardend ifend ifpass arrowKeyend arrowKeyon closeFieldglobal Tellif "pass" is not in Tell and "label" is not in the short name of the target then -- only if its a new entryif the short name of the target is not "notes" and "label" is not in the short name of the target thenif the short name of the target is not "export" and the short name of the target is not "gobg" thenif the short name of the target is not in Tell then put the short name of the target & "; " after Tellend ifend ifend ifput the date into line 1 of field "date"put the date into line 2 of field "date"convert line 2 of bg fld "date" to secondsend closeFieldon idlevisibleMarkend idleon visibleMarkif the marked of this card = true thenset icon of bg button "x" to 3333elseset icon of bg button "x" to 0end ifend visibleMarkon destroyCardif the number of cards of this bg = 1 thenanswer "This is the last card of section: "&the short name of this bg&". To get rid of this card use the 'Delete Section' button."exit to hypercardend ifanswer "Are you SURE you really want to delete this card?" with "Delete!" or "Don't"if it is "Don't" then exit destroyCardlock screendoMenu "Delete Card"unlock screen with visual shrink to centerend destroyCardon commandKeyDown whatKeyif whatKey is P thenacePrintingexit to hypercardend ifif whatKey is D then type the dateif whatKey is N thenset the highlight of bg button "NewCard" to truedoMenu "New Card"set the highlight of bg button "NewCard" to falsetabKeyexit to hypercardend ifpass commandKeyDownend commandKeyDownon niceSortglobal wordProcessor,upDatepush this cdput "Sorting stack using the Address Ace™ preffered sorting routine... " into msgsort by mySortKey()put "Compacting stack (insures the cards stay in order)... " into msgdoMenu "Compact Stack"put wordProcessor into bg fld "WP" of cd 1put upDate into bg fld "reset" of cd 1pop cardbeepput "Routine complete!" into msgend niceSortfunction mySortKeyget fld "section"if bg fld "company" is empty then return it & last word of bg fld "name"elseif first word of field "company" <> "The" then return it & first word of bg fld "company" & last word of bg fld "name"elseif first word of field "company" = "The" then return it & second word of bg fld "company" & last word of bg fld "name"end ifend ifend mySortKeyon dialNumber phoneNumberset cursor to watchif phoneNumber is empty then exit dialNumberpush cardlock screenif there is a stack "Phone Dialer" thengo stack "Phone Dialer"dial phoneNumberelse answer "The number could not be dialed, because the Phone Dialer stack cannot be found." -- ∆pop cardunlock screenend dialNumberon acePrintingset cursor to busyif bg fld "name" is not empty thenanswer "You can…"&return&return&"Address an envelope to "&bg fld "name"&"..."&return&"or"&return&"Print records of cards in this stack…"&return&¬"or"&return&"Print mailing labels for cards in this stack…"&return&return& "Type (⌘-.) command-period to cancel." with "envelope" or "records" or "labels"elseanswer "You can…"&return&return&"Address an envelope to "&bg fld "company"&"..."&return&"or"&return&"Print records of cards in this stack…"&return&¬"or"&return&"Print mailing labels for cards in this stack…"&return&return& "Type (⌘-.) command-period to cancel." with "envelope" or "records" or "labels"end ifif it is "envelope" thenaceEnvelopeend ifif it is "records" or it is "labels" then put it into acePrintWhatif it is "records" or it is "labels" then answer "Please select 'US Letter' (or it's equivalent) in the page setup."doMenu "Page Setup..."if acePrintWhat = "labels" thenanswer "Do you want the printed labels pre-sorted by zip code?" with "cancel" or "no" or "OK"end ifif acePrintWhat = "records" thenanswer "Address Ace™ will print records sorted alphabetically within their own section."&return&return&"Would you prefer the whole stack be pre-sorted so records "¬&"print alphabetically regardless of the section?"&return&return&"(select 'within' if you are printing only one section)" with "cancel" or "within" or "regardless"end ifif it is "cancel" then killPrintingif it is "OK" and acePrintWhat = "labels" then put true into preSortif it is "regardless" and acePrintWhat = "records" then put true into alphaSortanswer "Print "&acePrintWhat&" for selectively 'marked' cards, all cards in this stack or "&acePrintWhat&" just for cards in the section '" ¬& the short name of this bg &"'."&return&return& "Type (⌘-.) command-period to cancel." with "marked" or "all" or the short name of this bgif it is "marked" thenif the number of marked cards = 0 thenanswer "Presently no cards in the stack are marked for printing."&return¬&return&"Would you like to mark cards and print "&acePrintWhat&" right now?" with "no" or "OK"if it is "no" then killPrintingif it is "OK" thenask "Enter the text, date, or numbers that you wish to use as a basis to select cards for printing "&acePrintWhat&"."if it is a date and it contains "/" thenput it into timeSlotput it into aCertainDayconvert timeSlot to secondsanswer "You have entered the date: "&it &return&return&"Do you want to mark cards for printing mailing labels that are between " & it & ¬" and another date, before "&it&", or after "&it&"?"&return&return&"Type ⌘-. (command-period) to cancel." with "between" or "before" or "after"put "Marking cards to print "&acePrintWhat&" based on date criteria..." into msgif it is "between" thenask "What is the other date?"if it is not a date or "/" is not in it thenask "The second date entered is not a date recognized by Address Ace™..." & return & return & aCertainDay &&¬"has been entered, please enter another date or printing will be canceled"if it is not a date or "/" is not in it then killPrintingend ifif it is a date and it contains "/" then convert it to secondsput it into timeSlot2if timeSlot > timeSlot2 thenput timeSlot into endDayconvert endDay to dateput timeSlot2 into startDayconvert startDay to dateanswer "Mark cards to print "&acePrintWhat&" for those cards dated between " & startDay &" and " & endDay & "?" & return& return&¬"For the whole stack or just the section ""e & the short name of this bg & quote &"?" with "cancel" or "all" or short name of this bgif it is "cancel" then killPrintingif it is the short name of this bg thenmark cards where line 2 of bg fld "date" < timeSlot and (the short name of this bg = it)unmark cards where line 2 of bg fld "date" < timeSlot2 and (the short name of this bg =it)elsemark cards where line 2 of bg fld "date" > timeSlot2 and line 2 of bg fld "date" < timeSlotend ifend ifif timeSlot < timeSlot2 thenput timeSlot into startDayconvert startDay to dateput timeSlot2 into endDayconvert endDay to dateanswer "Mark cards to print "&acePrintWhat&" for those cards dated between " & startDay &" and " & endDay & "?" & return& return&¬"For the whole stack or just the section ""e & the short name of this bg & quote &"?" with "cancel" or "all" or short name of this bgif it is "cancel" then killPrintingif it is the short name of this bg thenmark cards where line 2 of bg fld "date" > timeSlot and (the short name of this bg = it)unmark cards where line 2 of bg fld "date" > timeSlot2 and (the short name of this bg =it)elsemark cards where line 2 of bg fld "date" > timeSlot and line 2 of bg fld "date" < timeSlot2end ifend ifend ifif it is "before" thenanswer "You are about to mark the cards and print "&acePrintWhat&" for cards dated before "&aCertainDay&"."&return&return&¬"Would you like to do this in all sections or just in this section: "& the short name of this bg &"?" with "cancel" or "all" or the short name of this bgif it is "cancel" then killPrintingif it is "all" then mark cards where timeSlot > line 2 of bg fld "date"if it is the short name of this bg then mark cards where timeSlot > line 2 of bg fld "date" and it = the short name of this bgend ifif it is "after" thenanswer "You are about to mark the cards and print "&acePrintWhat&" for cards dated after "&aCertainDay&"."&return&return&¬"Would you like to do this in all sections or just in this section: "& the short name of this bg &"?" with "cancel" or "all" or the short name of this bgif it is "cancel" then killPrintingif it is "all" then mark cards where timeSlot < line 2 of bg fld "date"if it is the short name of this bg then mark cards where timeSlot < line 2 of bg fld "date" and it = the short name of this bgend ifif the number of marked cards = 0 thenanswer "There are no cards to mark that fit your description. Printing has been canceled."killPrintingend ifpush cardif preSort is true then doPreSortif alphaSort is true then doAlphaSortput "Accumulating marked cards to print "&acePrintWhat&"..." into msgif acePrintWhat = "labels" thenopen report printing with template "Mailing Labels"end ifif acePrintWhat = "records" thenopen report printing with template "Rolodex Notes"end ifprint marked cardsclose printingunmark all cardsput "Printing has been completed!" into msgif preSort is true or alphaSort is true then niceSortexit to hypercardend if ---end date partif it is empty then killPrintingput it into theTextask "In what field does this information appear?"&return&return&"Choices are: 'company', 'name', 'address', 'csz', 'phone' or 'notes'."&return&return&¬"--'csz' stands for the field containing the city, state and zip code."repeat with i = 1 to the number of bg fldsif it = the short name of bg fld i then put true into testTheItend repeatif testTheIt is not true thenbeepanswer "There is no field by the name: ""e&it"e&"."&return&return&"No cards have been marked and printing has been canceled."¬&return&return&"You must spell the field name carefully. Printing has been canceled."exit to hypercardend ifif it is empty then killPrintingput it into theFieldanswer "And finally, do you wish to mark all cards in the stack for printing "&acePrintWhat&", or just cards in this section?"¬with "cancel" or the short name of this background or "all"if it is "cancel" then killPrintingif it is the short name of this background thenput "Finding cards to mark..." into messagemark cards where (fld (theField)) contains (theText) and it is the short name of this backgroundif the number of marked cards = 0 thenanswer "There are no cards to mark that fit your description. Printing has been canceled."exit to hypercardend ifif preSort is true then doPreSortif alphaSort is true then doAlphaSortput "Accumulating marked cards to print..." into msgif acePrintWhat = "labels" thenopen report printing with template "Mailing Labels"end ifif acePrintWhat = "records" thenopen report printing with template "Rolodex Notes"end ifprint marked cardsclose printingunmark all cardsput "Printing has been completed!" into msgif preSort is true or alphaSort is true then niceSortexit to hypercardend ifif it is "all" thenput "marking cards to print "&acePrintWhat&"..." into messagemark cards where (fld (theField)) contains (theText)if the number of marked cards = 0 thenput empty into msganswer "There are no cards to mark that fit your description. Printing has been canceled."exit to hypercardend ifend ifend ifend ifif preSort is true then doPreSortif alphaSort is true then doAlphaSortput "Accumulating marked cards to print "&acePrintWhat&"..." into msgif acePrintWhat = "labels" thenopen report printing with template "Mailing Labels"end ifif acePrintWhat = "records" thenopen report printing with template "Rolodex Notes"end ifprint marked cardsclose printingunmark all cardsput "Printing has been completed!" into msgif preSort is true or alphaSort is true then niceSortpop cardexit to hypercardend ifif it is "all" thenpush cdif preSort is true then doPreSortif alphaSort is true then doAlphaSortgo cd 1 of this stackif acePrintWhat = "labels" thenopen report printing with template "Mailing Labels"end ifif acePrintWhat = "records" thenopen report printing with template "Rolodex Notes"end ifprint all cardsclose printingput "Printing has been completed!" into msgif preSort is true or alphaSort is true then niceSortpop cdexit to hypercardend ifif it is the short name of this bg thenpush cdif preSort is true then doPreSortif alphaSort is true then doAlphaSortgo cd 1 of bg itput "Accumulating cards from this section to print "&acePrintWhat&"..." into msgif acePrintWhat = "labels" thenopen report printing with template "Mailing Labels"end ifif acePrintWhat = "records" thenopen report printing with template "Rolodex Notes"end ifrepeat for the number of cards of bg itprint this cardgo next card of bg itend repeatclose printingput "Printing has been completed!" into msgif preSort is true or alphaSort is true then niceSortpop cardexit to hypercardend ifend acePrintingon aceEnvelopeif bg fld "mailing label" is empty then send closeCardanswer "Please please make sure 'Envelope' is selected in the page setup."doMenu "Page Setup..."answer "Print envelope addressed to:"&return&bg fld "mailing label"&return&¬"with or without a return address." with "cancel" or "with" or "without"if it is "cancel" then killPrintingif it is "with" thenif bg fld "return label" is empty thenbeepanswer "There presently is no return label saved. Print envelope anyway?" with "no" or "OK"if it is "no" then killPrintingend ifopen report printing with template "Envelope w/Return Address"print this cardclose printingput "Envelope printed." into msgexit to hypercardend ifif it is "without" thenopen report printing with template "Envelope"print this cardclose printingput "Envelope printed." into msgexit to hypercardend ifend aceEnvelopeon killPrintingbeepanswer "Printing has been canceled."exit to hypercardend killPrintingon doPreSortput "Pre-sorting cards by zip code..." into msgsort by last word of bg fld "csz"end doPreSorton doAlphaSortput "Pre-sorting cards alphabetically (not within section)..." into msgsort by alphaSortKey()end doAlphaSortfunction alphaSortKeyif bg fld "company" is empty then return last word of bg fld "name"elseif first word of field "company" <> "The" then return first word of bg fld "company" & last word of bg fld "name"elseif first word of field "company" = "The" then return second word of bg fld "company" & last word of bg fld "name"end ifend ifend alphaSortKeyon NewBkgndglobal userLevelif there is no stack "Home" thenbeepanswer "In order to add new sections, there must be a ""e&"home""e&" stack."&return&return&"Sorry." with "cancel"exit to hypercardend ifput short name of this stack into goBackAceset lockMessages to trueask "Like to create a new section for Address Ace™?"¬&return&return&"Then… enter the name of this new section, otherwise 'cancel'."if it is empty thenbeepexit NewBkgndend ifset cursor to 4put "Creating the new section "&it&"…" into msgput the userLevel into useLevSavset the userLevel to 5set cantAbort of this stack to trueset cantAbort of stack "Home" to trueput bg fld "gobg" into Directoryput bg fld "return label" into myLabellock screendoMenu "New Card"doMenu "Cut Card"go homedoMenu "Paste Card"set the name of this bg to itput it into bg fld "section"set the cantDelete of this bg to falsedoMenu "Cut Card"go last cd of stack goBackAceput empty into msgput "Adding section"&&it&&"... Notifying all sections of changes..." into msgdoMenu "Paste Card"set the cantDelete of this bg to trueput myLabel into bg fld "return label"put Directory into bg fld "gobg" of last cdput return & it after last line of bg fld "gobg"sort bg fld "gobg"put bg fld "gobg" into Directoryrepeat with x = 1 to the number of lines of Directorygo bg (line x of Directory)put Directory into bg fld "gobg"end repeatset the userLevel to useLevSavset cantAbort of this stack to falsego bg itbeepanswer "The section "& quote & it & quote &" has been added to this stack."unlock screenset cursor to 1set lockMessages to falseend NewBkgndon KillMebeepif the number of lines of bg fld "gobg" = 1 thenbeepanswer "If you really need to delete the last section of Address Ace™ then choose ""e&"Delete Stack…""e&" from the menu ""e&"File""e&"."exit to hypercardend ifanswer "Totally DELETE the section "&the short name of this bg&"?"&return&return&"You will lose "&the number of cds of this bg&" entries. This cannot be undone once it is done…" with "delete" or "cancel"if it is "cancel" thenbeepexit to hypercardend ifif it is "delete" thenrepeat with x = 1 to the number of lines of bg fld "gobg"if the short name of this bg = line x of bg fld "gobg" thendelete line x of bg fld "gobg"end ifend repeatput the short name of this bg into itput bg fld "gobg" into newTitlesset cursor to busylock screenput "Notifying other sections that section "&it&" is being deleted…" into msgrepeat for the number of bgsgo next bgput newTitles into bg fld "gobg"end repeatgo cd 1 of bg itbeepput "Deleting all cards in the section "&it&"…" into msgrepeat for (the number of cards of bg it) - 1doMenu "Cut Card"end repeatset the cantDelete of this bg to falsedoMenu "Cut Card"beepanswer "The section "&it&" has been deleted."put empty into msgend ifend KillMeon reNameglobal wordProcessor, upDateanswer "Rename this section?" with "cancel" or "Yes"if it is "Yes" thenanswer "Sort this stack after it is renamed?" with "no, don't" or "OK"if it is "OK" then put true into reSortask "Please enter the new name of this section:"if it is "cancel" or it is empty thenbeepexit to hypercardend ifrepeat with x = 1 to the number of lines of bg fld "gobg"if the short name of this bg = line x of bg fld "gobg" thendelete line x of bg fld "gobg"end ifend repeatset the name of this bg to itput it into bg fld "section"put return & it after last line of bg fld "gobg"sort bg fld "gobg"put bg fld "gobg" into newTitlesset cursor to busylock screenput "Notifying other sections of this change..." into msgrepeat for the number of bgsgo next bgput newTitles into bg fld "gobg"end repeatgo bg itset cursor to 1unlock screenbeepput empty into msgif reSort is true thenpush this cardput "Sorting stack using the Address Ace™ preffered sorting routine... " into msgsort by mySortKey()put "Compacting stack (insures the cards stay in order)... " into msgdoMenu "Compact Stack"put wordProcessor into bg fld "WP" of cd 1put upDate into bg fld "reset" of cd 1put empty into msgpop cardbeepanswer "This section has been renamed ""e& short name of this bg "e&" and the stack has been sorted using the Address Ace™ sorting routine."&return&return¬&"All other sections of Address Ace™ have been notified of the name change."exit to hypercardend ifanswer "This section has been renamed ""e& short name of this bg "e&"."&return&return&"All other sections of Address Ace™ have been notified of this change."end ifif it is not "OK" then beepend reNameon sendAceif the visible of bg fld "mailing label" is true thenhide bg fld "mailing label"set the hilight of target to falseelseset the hilight of target to trueshow bg fld "mailing label"if bg fld "mailing label" is empty then send remailend ifend sendAceon moveItglobal wordProcessorif line 1 of wordProcessor is empty or line 2 of wordProcessor is empty thenanswer "This is the " & quote & "Open Application" & quote & " button." with "cancel" or "continue"if it is "continue" thenanswer "This stack hasn't been fully set to export information to the text writable applications of your choice." with "continue"answer "Please refer to the notes on setting up templates (in the instruction manual)." & return & return & "If you are already set up your templates " &¬"and wish to continue, select 'Ready'. 'Cancel' if you're not prepared to do this yet." with "Cancel" or "Ready"end ifif it is "Cancel" then exit moveItif it is "Ready" then reTransexit to hypercardend ifTRANSend moveIton TRANSglobal wordProcessoranswer "Transfer the information on this card to write" with "cancel" or "a letter" or "an invoice"if it is "cancel" then exit TRANSshow bg field "export"if field "export" is empty then fillerUpselect text of field "export"doMenu "copy text"hide field "export"if it is "a letter" then open "letter template" with line 1 of wordProcessorif it is "an invoice" then open "invoice template" with line 2 of wordProcessorend TRANSon reTransglobal wordProcessor, upDateif wordProcessor is empty thenask "Enter the name of a program you'd like to export this card's information to when writing a letter." & return & return &¬"Be sure use the spelling of the program as it appears on the desktop." & return & return & "Microsft Word is the default setting." with Microsoft Wordput it into line 1 of wordProcessorask "Enter the name of a program you'd like to export this card's information to when writing an invoice." & return & return &¬"Be sure use the spelling of the program as it appears on the desktop." & return & return & "Microsft Word is the default setting." with Microsoft Wordput it into line 2 of wordProcessorelseanswer "This card's information is sent to:"&return&line 1 of wordProcessor &return& "when writing a letter."&return&return&"This card's information is sent to:"¬&return&line 2 of wordProcessor&return&"when writing an invoice."&return&return&"Hit 'change' to change the settings, 'OK' retains the settings."with "change" or "OK"end ifif it is "change" thenput empty into wordProcessorreTransreTransend ifput wordProcessor into bg fld "WP" of cd 1put upDate into bg fld "reset" of cd 1end reTranson makeOveranswer "To update names and addresses on the mailing label and export field." & return & return & "Select 'Mail' or 'Export' or 'Both'." & ¬return & return & "Type ⌘-. to cancel." with "Mail" or "Export" or "Both"if it is "Mail" thenshow bg fld "mailing label"reMailhide bg fld "mailing label"set the hilite of bg button "mailing label" to falseend ifif it is "Export" thenshow bg fld "export"fillerUphide bg fld "export"set the hilite of bg button "info check" to falseend ifif it is "Both" thenshow bg fld "mailing label"reMailhide bg fld "mailing label"set the hilite of bg button "mailing label" to falseshow bg fld "export"fillerUphide bg fld "export"set the hilite of bg button "info check" to falseend ifend makeOveron reMailput empty into bg fld "mailing label"if bg fld "name" is empty thenput bg fld "company" into line 1 of bg fld "mailing label"elseput bg fld "name" into line 1 of bg fld "mailing label"if bg fld "company" is not empty then put return & bg fld "company" after last line of bg fld "mailing label"end ifif bg fld "local address" is not empty then put return & bg fld "local address" after last line of bg fld "mailing label"if bg fld "csz" is not empty then put return & bg fld "csz" after last line of bg fld "mailing label"end remailon fillerUpput empty into bg fld "export"if bg fld "company" is not empty thenput bg fld "company" into line 1 of field "export"if bg fld "name" is not empty then put return & bg fld "name" after last line of bg fld "export"end ifif field "company" is empty then put bg fld "name" into line 1 of bg fld "export"if bg fld "local address" is not empty then put return & bg fld "local address" after last line of bg fld "export"if bg fld "csz" is not empty then put return & bg fld "csz" after last line of bg fld "export"if line 1 of field "phone" is not empty then put return & line 1 of bg fld "phone" after last line of bg fld "export"if line 2 of field "phone" is not empty then put return & line 2 of bg fld "phone" after last line of bg fld "export"if line 3 of field "phone" is not empty then put return & line 3 of bg fld "phone" && "(fax)" after last line of bg fld "export"if line 4 of field "phone" is not empty then put return & line 4 of bg fld "phone" && "(home)"after last line of bg fld "export"if bg fld "tax#" is not empty then put return & bg fld "tax#" after last line of field "export"end fillerUpon adVertpush this cdvisual effect iris opengo cd "aceIt"end adverton suspendStackglobal wordProcessor, upDatereset menuBarput wordProcessor into bg fld "WP" of cd 1put upDate into bg fld "reset" of cd 1put empty into wordProcessorput empty into upDatehide msgend suspendStackon resumeStackglobal wordProcessor, upDatereset menuBarpush recent cardput bg fld "WP" of cd 1 into wordProcessorput bg fld "reset" of cd 1 into upDateshow msgdoMenu "find..."end resumeStackon closeStackglobal wordProcessor, upDatereset menuBarput wordProcessor into bg fld "WP" of cd 1put upDate into bg fld "reset" of cd 1put empty into wordProcessorput empty into upDatehide msgend closeStack</script>
